home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / fastform / fastform.fr_ / fastform.fr (.txt)
Encoding:
Visual Basic Form  |  1998-07-12  |  33.4 KB  |  998 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
  3. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "COMCTL32.OCX"
  4. Object = "{805DC804-058A-11D2-94FE-0080C8796280}#72.0#0"; "FastForm.ocx"
  5. Begin VB.Form Form1 
  6.    AutoRedraw      =   -1  'True
  7.    BackColor       =   &H00FFFFFF&
  8.    Caption         =   "FastForm Control - Test Program"
  9.    ClientHeight    =   8415
  10.    ClientLeft      =   240
  11.    ClientTop       =   525
  12.    ClientWidth     =   9525
  13.    BeginProperty Font 
  14.       Name            =   "MS Sans Serif"
  15.       Size            =   9.75
  16.       Charset         =   0
  17.       Weight          =   400
  18.       Underline       =   0   'False
  19.       Italic          =   0   'False
  20.       Strikethrough   =   0   'False
  21.    EndProperty
  22.    LinkTopic       =   "Form1"
  23.    Picture         =   "FastFormTest.frx":0000
  24.    ScaleHeight     =   8415
  25.    ScaleWidth      =   9525
  26.    Begin ComctlLib.Toolbar Toolbar1 
  27.       Align           =   1  'Align Top
  28.       Height          =   420
  29.       Left            =   0
  30.       TabIndex        =   36
  31.       Top             =   0
  32.       Width           =   9525
  33.       _ExtentX        =   16801
  34.       _ExtentY        =   741
  35.       Appearance      =   1
  36.       ImageList       =   "ImageList2"
  37.       _Version        =   327682
  38.       BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  39.          NumButtons      =   2
  40.          BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  41.             Object.Tag             =   ""
  42.             ImageIndex      =   1
  43.          EndProperty
  44.          BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  45.             Object.Tag             =   ""
  46.             ImageIndex      =   2
  47.          EndProperty
  48.       EndProperty
  49.    End
  50.    Begin VB.CommandButton cmdPicSize 
  51.       Caption         =   "Click me"
  52.       Height          =   975
  53.       Left            =   3960
  54.       Style           =   1  'Graphical
  55.       TabIndex        =   35
  56.       Top             =   4080
  57.       Width           =   1095
  58.    End
  59.    Begin VB.CheckBox chkBooleanProperties 
  60.       Caption         =   "SaveWindowState"
  61.       BeginProperty Font 
  62.          Name            =   "MS Sans Serif"
  63.          Size            =   8.25
  64.          Charset         =   0
  65.          Weight          =   400
  66.          Underline       =   0   'False
  67.          Italic          =   0   'False
  68.          Strikethrough   =   0   'False
  69.       EndProperty
  70.       Height          =   375
  71.       Index           =   6
  72.       Left            =   5880
  73.       Style           =   1  'Graphical
  74.       TabIndex        =   34
  75.       Top             =   720
  76.       Width           =   1935
  77.    End
  78.    Begin VB.Frame Frame1 
  79.       BorderStyle     =   0  'None
  80.       Caption         =   "Frame1"
  81.       Height          =   1455
  82.       Left            =   240
  83.       TabIndex        =   29
  84.       Top             =   2160
  85.       Width           =   2415
  86.       Begin VB.TextBox txtMinHeight 
  87.          Height          =   375
  88.          Left            =   1080
  89.          TabIndex        =   31
  90.          Top             =   840
  91.          Width           =   1215
  92.       End
  93.       Begin VB.TextBox txtMinWidth 
  94.          Height          =   375
  95.          Left            =   1080
  96.          TabIndex        =   30
  97.          Top             =   240
  98.          Width           =   1215
  99.       End
  100.       Begin VB.Label Label1 
  101.          Caption         =   "MinHeight"
  102.          Height          =   255
  103.          Index           =   1
  104.          Left            =   120
  105.          TabIndex        =   33
  106.          Top             =   840
  107.          Width           =   975
  108.       End
  109.       Begin VB.Label Label1 
  110.          Caption         =   "MinWidth"
  111.          Height          =   255
  112.          Index           =   0
  113.          Left            =   120
  114.          TabIndex        =   32
  115.          Top             =   360
  116.          Width           =   975
  117.       End
  118.    End
  119.    Begin VB.CheckBox chkBooleanProperties 
  120.       Caption         =   "ScaleBorders"
  121.       BeginProperty Font 
  122.          Name            =   "MS Sans Serif"
  123.          Size            =   8.25
  124.          Charset         =   0
  125.          Weight          =   400
  126.          Underline       =   0   'False
  127.          Italic          =   0   'False
  128.          Strikethrough   =   0   'False
  129.       EndProperty
  130.       Height          =   375
  131.       Index           =   9
  132.       Left            =   4815
  133.       Style           =   1  'Graphical
  134.       TabIndex        =   28
  135.       Top             =   1680
  136.       Width           =   1935
  137.    End
  138.    Begin VB.CheckBox chkBooleanProperties 
  139.       Caption         =   "ScaleGraphics"
  140.       BeginProperty Font 
  141.          Name            =   "MS Sans Serif"
  142.          Size            =   8.25
  143.          Charset         =   0
  144.          Weight          =   400
  145.          Underline       =   0   'False
  146.          Italic          =   0   'False
  147.          Strikethrough   =   0   'False
  148.       EndProperty
  149.       Height          =   375
  150.       Index           =   8
  151.       Left            =   6855
  152.       Style           =   1  'Graphical
  153.       TabIndex        =   27
  154.       Top             =   1680
  155.       Width           =   1935
  156.    End
  157.    Begin VB.CheckBox chkBooleanProperties 
  158.       Caption         =   "ResizeOnMouseUp"
  159.       BeginProperty Font 
  160.          Name            =   "MS Sans Serif"
  161.          Size            =   8.25
  162.          Charset         =   0
  163.          Weight          =   400
  164.          Underline       =   0   'False
  165.          Italic          =   0   'False
  166.          Strikethrough   =   0   'False
  167.       EndProperty
  168.       Height          =   375
  169.       Index           =   7
  170.       Left            =   5895
  171.       Style           =   1  'Graphical
  172.       TabIndex        =   26
  173.       Top             =   1200
  174.       Width           =   1935
  175.    End
  176.    Begin ComctlLib.TabStrip TabStrip1 
  177.       Height          =   1095
  178.       Left            =   120
  179.       TabIndex        =   25
  180.       Top             =   5040
  181.       Width           =   3735
  182.       _ExtentX        =   6588
  183.       _ExtentY        =   1931
  184.       ImageList       =   "ImageList2"
  185.       _Version        =   327682
  186.       BeginProperty Tabs {0713E432-850A-101B-AFC0-4210102A8DA7} 
  187.          NumTabs         =   3
  188.          BeginProperty Tab1 {0713F341-850A-101B-AFC0-4210102A8DA7} 
  189.             Caption         =   "One"
  190.             Object.Tag             =   ""
  191.             ImageVarType    =   2
  192.             ImageIndex      =   1
  193.          EndProperty
  194.          BeginProperty Tab2 {0713F341-850A-101B-AFC0-4210102A8DA7} 
  195.             Caption         =   "Two"
  196.             Object.Tag             =   ""
  197.             ImageVarType    =   2
  198.             ImageIndex      =   2
  199.          EndProperty
  200.          BeginProperty Tab3 {0713F341-850A-101B-AFC0-4210102A8DA7} 
  201.             Caption         =   "three"
  202.             Object.Tag             =   ""
  203.             ImageVarType    =   2
  204.             ImageIndex      =   3
  205.          EndProperty
  206.       EndProperty
  207.    End
  208.    Begin VB.PictureBox Picture1 
  209.       BeginProperty Font 
  210.          Name            =   "MS Sans Serif"
  211.          Size            =   8.25
  212.          Charset         =   0
  213.          Weight          =   400
  214.          Underline       =   0   'False
  215.          Italic          =   0   'False
  216.          Strikethrough   =   0   'False
  217.       EndProperty
  218.       Height          =   855
  219.       Left            =   4200
  220.       Picture         =   "FastFormTest.frx":3B47
  221.       ScaleHeight     =   795
  222.       ScaleWidth      =   1110
  223.       TabIndex        =   24
  224.       Top             =   5760
  225.       Width           =   1170
  226.    End
  227.    Begin VB.CommandButton Command1 
  228.       BackColor       =   &H00C0FFFF&
  229.       BeginProperty Font 
  230.          Name            =   "MS Sans Serif"
  231.          Size            =   8.25
  232.          Charset         =   0
  233.          Weight          =   400
  234.          Underline       =   0   'False
  235.          Italic          =   0   'False
  236.          Strikethrough   =   0   'False
  237.       EndProperty
  238.       Height          =   735
  239.       Left            =   360
  240.       Picture         =   "FastFormTest.frx":3D5F
  241.       Style           =   1  'Graphical
  242.       TabIndex        =   22
  243.       Top             =   4080
  244.       Width           =   1095
  245.    End
  246.    Begin ComctlLib.StatusBar StatusBar1 
  247.       Align           =   2  'Align Bottom
  248.       Height          =   375
  249.       Left            =   0
  250.       TabIndex        =   21
  251.       Top             =   8040
  252.       Width           =   9525
  253.       _ExtentX        =   16801
  254.       _ExtentY        =   661
  255.       SimpleText      =   ""
  256.       _Version        =   327682
  257.       BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
  258.          NumPanels       =   2
  259.          BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  260.             AutoSize        =   1
  261.             Object.Width           =   8123
  262.             Text            =   "a short text"
  263.             TextSave        =   "a short text"
  264.             Object.Tag             =   ""
  265.          EndProperty
  266.          BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  267.             AutoSize        =   1
  268.             Object.Width           =   8123
  269.             Text            =   "a long text to see what happens when you scale it"
  270.             TextSave        =   "a long text to see what happens when you scale it"
  271.             Object.Tag             =   ""
  272.          EndProperty
  273.       EndProperty
  274.    End
  275.    Begin MSComDlg.CommonDialog CommonDialog1 
  276.       Left            =   7920
  277.       Top             =   480
  278.       _ExtentX        =   847
  279.       _ExtentY        =   847
  280.       _Version        =   327681
  281.    End
  282.    Begin VB.CommandButton cmdAbout 
  283.       Caption         =   "About"
  284.       DownPicture     =   "FastFormTest.frx":3F77
  285.       BeginProperty Font 
  286.          Name            =   "MS Sans Serif"
  287.          Size            =   8.25
  288.          Charset         =   0
  289.          Weight          =   400
  290.          Underline       =   0   'False
  291.          Italic          =   0   'False
  292.          Strikethrough   =   0   'False
  293.       EndProperty
  294.       Height          =   615
  295.       Left            =   4800
  296.       Picture         =   "FastFormTest.frx":4079
  297.       Style           =   1  'Graphical
  298.       TabIndex        =   19
  299.       Top             =   2160
  300.       Width           =   975
  301.    End
  302.    Begin VB.CommandButton cmdReset 
  303.       Caption         =   "Reset"
  304.       BeginProperty Font 
  305.          Name            =   "MS Sans Serif"
  306.          Size            =   8.25
  307.          Charset         =   0
  308.          Weight          =   400
  309.          Underline       =   0   'False
  310.          Italic          =   0   'False
  311.          Strikethrough   =   0   'False
  312.       EndProperty
  313.       Height          =   615
  314.       Left            =   4800
  315.       TabIndex        =   18
  316.       Top             =   3120
  317.       Width           =   975
  318.    End
  319.    Begin VB.Frame Frame3 
  320.       BorderStyle     =   0  'None
  321.       BeginProperty Font 
  322.          Name            =   "MS Sans Serif"
  323.          Size            =   8.25
  324.          Charset         =   0
  325.          Weight          =   400
  326.          Underline       =   0   'False
  327.          Italic          =   0   'False
  328.          Strikethrough   =   0   'False
  329.       EndProperty
  330.       Height          =   1676
  331.       Left            =   5880
  332.       TabIndex        =   7
  333.       Top             =   2160
  334.       Width           =   3405
  335.       Begin VB.HScrollBar hsbScaleX 
  336.          Height          =   252
  337.          LargeChange     =   10
  338.          Left            =   600
  339.          Max             =   100
  340.          TabIndex        =   10
  341.          Top             =   474
  342.          Width           =   1228
  343.       End
  344.       Begin VB.HScrollBar hsbScaleY 
  345.          Height          =   252
  346.          LargeChange     =   10
  347.          Left            =   600
  348.          Max             =   100
  349.          TabIndex        =   9
  350.          Top             =   1200
  351.          Width           =   1228
  352.       End
  353.       Begin VB.CommandButton cmdScale 
  354.          Caption         =   "Scale"
  355.          BeginProperty Font 
  356.             Name            =   "MS Sans Serif"
  357.             Size            =   8.25
  358.             Charset         =   0
  359.             Weight          =   400
  360.             Underline       =   0   'False
  361.             Italic          =   0   'False
  362.             Strikethrough   =   0   'False
  363.          EndProperty
  364.          Height          =   489
  365.          Index           =   0
  366.          Left            =   2160
  367.          TabIndex        =   8
  368.          Top             =   600
  369.          Width           =   985
  370.       End
  371.       Begin VB.Label Label3 
  372.          BackStyle       =   0  'Transparent
  373.          Caption         =   "%"
  374.          BeginProperty Font 
  375.             Name            =   "MS Sans Serif"
  376.             Size            =   8.25
  377.             Charset         =   0
  378.             Weight          =   400
  379.             Underline       =   0   'False
  380.             Italic          =   0   'False
  381.             Strikethrough   =   0   'False
  382.          EndProperty
  383.          Height          =   255
  384.          Index           =   3
  385.          Left            =   1800
  386.          TabIndex        =   16
  387.          Top             =   945
  388.          Width           =   375
  389.       End
  390.       Begin VB.Label Label3 
  391.          BackStyle       =   0  'Transparent
  392.          Caption         =   "%"
  393.          BeginProperty Font 
  394.             Name            =   "MS Sans Serif"
  395.             Size            =   8.25
  396.             Charset         =   0
  397.             Weight          =   400
  398.             Underline       =   0   'False
  399.             Italic          =   0   'False
  400.             Strikethrough   =   0   'False
  401.          EndProperty
  402.          Height          =   255
  403.          Index           =   2
  404.          Left            =   1800
  405.          TabIndex        =   15
  406.          Top             =   240
  407.          Width           =   375
  408.       End
  409.       Begin VB.Label lblScaleX 
  410.          Alignment       =   2  'Center
  411.          BackStyle       =   0  'Transparent
  412.          Caption         =   "0"
  413.          BeginProperty Font 
  414.             Name            =   "MS Sans Serif"
  415.             Size            =   8.25
  416.             Charset         =   0
  417.             Weight          =   400
  418.             Underline       =   0   'False
  419.             Italic          =   0   'False
  420.             Strikethrough   =   0   'False
  421.          EndProperty
  422.          Height          =   255
  423.          Left            =   600
  424.          TabIndex        =   14
  425.          Top             =   240
  426.          Width           =   1230
  427.       End
  428.       Begin VB.Label lblScaleY 
  429.          Alignment       =   2  'Center
  430.          BackStyle       =   0  'Transparent
  431.          Caption         =   "0"
  432.          BeginProperty Font 
  433.             Name            =   "MS Sans Serif"
  434.             Size            =   8.25
  435.             Charset         =   0
  436.             Weight          =   400
  437.             Underline       =   0   'False
  438.             Italic          =   0   'False
  439.             Strikethrough   =   0   'False
  440.          EndProperty
  441.          Height          =   255
  442.          Left            =   600
  443.          TabIndex        =   13
  444.          Top             =   960
  445.          Width           =   1230
  446.       End
  447.       Begin VB.Label Label3 
  448.          Alignment       =   1  'Right Justify
  449.          BackStyle       =   0  'Transparent
  450.          Caption         =   "ScaleX"
  451.          BeginProperty Font 
  452.             Name            =   "MS Sans Serif"
  453.             Size            =   8.25
  454.             Charset         =   0
  455.             Weight          =   400
  456.             Underline       =   0   'False
  457.             Italic          =   0   'False
  458.             Strikethrough   =   0   'False
  459.          EndProperty
  460.          Height          =   255
  461.          Index           =   0
  462.          Left            =   0
  463.          TabIndex        =   12
  464.          Top             =   240
  465.          Width           =   615
  466.       End
  467.       Begin VB.Label Label3 
  468.          Alignment       =   1  'Right Justify
  469.          BackStyle       =   0  'Transparent
  470.          Caption         =   "ScaleY"
  471.          BeginProperty Font 
  472.             Name            =   "MS Sans Serif"
  473.             Size            =   8.25
  474.             Charset         =   0
  475.             Weight          =   400
  476.             Underline       =   0   'False
  477.             Italic          =   0   'False
  478.             Strikethrough   =   0   'False
  479.          EndProperty
  480.          Height          =   255
  481.          Index           =   1
  482.          Left            =   0
  483.          TabIndex        =   11
  484.          Top             =   945
  485.          Width           =   615
  486.       End
  487.    End
  488.    Begin VB.Frame Frame2 
  489.       BorderStyle     =   0  'None
  490.       BeginProperty Font 
  491.          Name            =   "MS Sans Serif"
  492.          Size            =   8.25
  493.          Charset         =   0
  494.          Weight          =   400
  495.          Underline       =   0   'False
  496.          Italic          =   0   'False
  497.          Strikethrough   =   0   'False
  498.       EndProperty
  499.       Height          =   960
  500.       Left            =   2760
  501.       TabIndex        =   5
  502.       Top             =   2400
  503.       Width           =   1965
  504.       Begin VB.CommandButton cmdGradientColour 
  505.          Caption         =   "Gradient Colour"
  506.          BeginProperty Font 
  507.             Name            =   "MS Sans Serif"
  508.             Size            =   8.25
  509.             Charset         =   0
  510.             Weight          =   400
  511.             Underline       =   0   'False
  512.             Italic          =   0   'False
  513.             Strikethrough   =   0   'False
  514.          EndProperty
  515.          Height          =   489
  516.          Left            =   120
  517.          Style           =   1  'Graphical
  518.          TabIndex        =   6
  519.          Top             =   240
  520.          Width           =   1713
  521.       End
  522.    End
  523.    Begin VB.CheckBox chkBooleanProperties 
  524.       Caption         =   "StayOnTop"
  525.       BeginProperty Font 
  526.          Name            =   "MS Sans Serif"
  527.          Size            =   8.25
  528.          Charset         =   0
  529.          Weight          =   400
  530.          Underline       =   0   'False
  531.          Italic          =   0   'False
  532.          Strikethrough   =   0   'False
  533.       EndProperty
  534.       Height          =   375
  535.       Index           =   5
  536.       Left            =   3855
  537.       Style           =   1  'Graphical
  538.       TabIndex        =   4
  539.       Top             =   1200
  540.       Width           =   1935
  541.    End
  542.    Begin VB.CheckBox chkBooleanProperties 
  543.       Caption         =   "ScaleFonts"
  544.       BeginProperty Font 
  545.          Name            =   "MS Sans Serif"
  546.          Size            =   8.25
  547.          Charset         =   0
  548.          Weight          =   400
  549.          Underline       =   0   'False
  550.          Italic          =   0   'False
  551.          Strikethrough   =   0   'False
  552.       EndProperty
  553.       Height          =   375
  554.       Index           =   4
  555.       Left            =   2775
  556.       Style           =   1  'Graphical
  557.       TabIndex        =   3
  558.       Top             =   1680
  559.       Width           =   1950
  560.    End
  561.    Begin VB.CheckBox chkBooleanProperties 
  562.       Caption         =   "ScaleControls"
  563.       BeginProperty Font 
  564.          Name            =   "MS Sans Serif"
  565.          Size            =   8.25
  566.          Charset         =   0
  567.          Weight          =   400
  568.          Underline       =   0   'False
  569.          Italic          =   0   'False
  570.          Strikethrough   =   0   'False
  571.       EndProperty
  572.       Height          =   375
  573.       Index           =   3
  574.       Left            =   735
  575.       Style           =   1  'Graphical
  576.       TabIndex        =   2
  577.       Top             =   1680
  578.       Width           =   1935
  579.    End
  580.    Begin VB.CheckBox chkBooleanProperties 
  581.       Caption         =   "GradientFill"
  582.       BeginProperty Font 
  583.          Name            =   "MS Sans Serif"
  584.          Size            =   8.25
  585.          Charset         =   0
  586.          Weight          =   400
  587.          Underline       =   0   'False
  588.          Italic          =   0   'False
  589.          Strikethrough   =   0   'False
  590.       EndProperty
  591.       Height          =   375
  592.       Index           =   2
  593.       Left            =   1800
  594.       Style           =   1  'Graphical
  595.       TabIndex        =   23
  596.       Top             =   1200
  597.       Width           =   1935
  598.    End
  599.    Begin VB.CheckBox chkBooleanProperties 
  600.       Caption         =   "CenterY"
  601.       BeginProperty Font 
  602.          Name            =   "MS Sans Serif"
  603.          Size            =   8.25
  604.          Charset         =   0
  605.          Weight          =   400
  606.          Underline       =   0   'False
  607.          Italic          =   0   'False
  608.          Strikethrough   =   0   'False
  609.       EndProperty
  610.       Height          =   375
  611.       Index           =   1
  612.       Left            =   3840
  613.       Style           =   1  'Graphical
  614.       TabIndex        =   1
  615.       Top             =   720
  616.       Width           =   1935
  617.    End
  618.    Begin VB.CheckBox chkBooleanProperties 
  619.       Caption         =   "CenterX"
  620.       BeginProperty Font 
  621.          Name            =   "MS Sans Serif"
  622.          Size            =   8.25
  623.          Charset         =   0
  624.          Weight          =   400
  625.          Underline       =   0   'False
  626.          Italic          =   0   'False
  627.          Strikethrough   =   0   'False
  628.       EndProperty
  629.       Height          =   375
  630.       Index           =   0
  631.       Left            =   1800
  632.       Style           =   1  'Graphical
  633.       TabIndex        =   0
  634.       Top             =   720
  635.       Width           =   1935
  636.    End
  637.    Begin FastForm.FastFormControl FastFormControl1 
  638.       Left            =   360
  639.       Top             =   600
  640.       _ExtentX        =   1826
  641.       _ExtentY        =   1217
  642.       ScaleFonts      =   -1  'True
  643.       GradientFill    =   -1  'True
  644.       ScaleControls   =   -1  'True
  645.       StayOnTop       =   -1  'True
  646.       MinWidth        =   4000
  647.       MinHeight       =   4000
  648.       ScaleBorders    =   -1  'True
  649.       ResizeOnMouseUp =   -1  'True
  650.       ControlFlagCount=   56
  651.       ControlFlagControlKey0=   "Form1"
  652.       ControlFlagControlKey2=   "cmdPicSize"
  653.       ControlFlagDontScaleGraphic2=   -1  'True
  654.       ControlFlagControlKey3=   "chkBooleanProperties(6)"
  655.       ControlFlagControlKey9=   "chkBooleanProperties(9)"
  656.       ControlFlagControlKey10=   "chkBooleanProperties(8)"
  657.       ControlFlagControlKey11=   "chkBooleanProperties(7)"
  658.       ControlFlagControlKey13=   "Picture1"
  659.       ControlFlagControlKey14=   "Command1"
  660.       ControlFlagControlKey17=   "cmdAbout"
  661.       ControlFlagControlKey18=   "cmdReset"
  662.       ControlFlagControlKey22=   "cmdScale(0)"
  663.       ControlFlagControlKey30=   "cmdGradientColour"
  664.       ControlFlagControlKey31=   "chkBooleanProperties(5)"
  665.       ControlFlagControlKey32=   "chkBooleanProperties(4)"
  666.       ControlFlagControlKey33=   "chkBooleanProperties(3)"
  667.       ControlFlagControlKey34=   "chkBooleanProperties(2)"
  668.       ControlFlagControlKey35=   "chkBooleanProperties(1)"
  669.       ControlFlagControlKey36=   "chkBooleanProperties(0)"
  670.       ControlFlagControlKey37=   "ImageList2"
  671.       ControlFlagControlKey38=   "Image1"
  672.       ScaleGraphics   =   -1  'True
  673.       ReplaceFontsWith=   "Arial"
  674.       SaveWindowState =   -1  'True
  675.       WindowName      =   "FastForm Control - Test Program"
  676.    End
  677.    Begin ComctlLib.ImageList ImageList2 
  678.       Left            =   2520
  679.       Top             =   4080
  680.       _ExtentX        =   1005
  681.       _ExtentY        =   1005
  682.       BackColor       =   -2147483643
  683.       ImageWidth      =   16
  684.       ImageHeight     =   16
  685.       MaskColor       =   12632256
  686.       UseMaskColor    =   0   'False
  687.       _Version        =   327682
  688.       BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
  689.          NumListImages   =   4
  690.          BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  691.             Picture         =   "FastFormTest.frx":417B
  692.             Key             =   ""
  693.          EndProperty
  694.          BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  695.             Picture         =   "FastFormTest.frx":428D
  696.             Key             =   ""
  697.          EndProperty
  698.          BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  699.             Picture         =   "FastFormTest.frx":439F
  700.             Key             =   ""
  701.          EndProperty
  702.          BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  703.             Picture         =   "FastFormTest.frx":44B1
  704.             Key             =   ""
  705.          EndProperty
  706.       EndProperty
  707.    End
  708.    Begin VB.Image Image1 
  709.       Height          =   1455
  710.       Left            =   2400
  711.       Picture         =   "FastFormTest.frx":45C3
  712.       Stretch         =   -1  'True
  713.       Top             =   6360
  714.       Width           =   1575
  715.    End
  716.    Begin VB.Label lblInfo 
  717.       BackStyle       =   0  'Transparent
  718.       Caption         =   "lblInfo"
  719.       ForeColor       =   &H008080FF&
  720.       Height          =   3615
  721.       Left            =   5640
  722.       TabIndex        =   20
  723.       Top             =   3960
  724.       Width           =   3615
  725.       WordWrap        =   -1  'True
  726.    End
  727.    Begin VB.Line Line2 
  728.       BorderColor     =   &H00C0C0FF&
  729.       BorderWidth     =   5
  730.       X1              =   120
  731.       X2              =   5400
  732.       Y1              =   3960
  733.       Y2              =   3960
  734.    End
  735.    Begin VB.Label Label4 
  736.       BackStyle       =   0  'Transparent
  737.       Caption         =   "Example Controls"
  738.       BeginProperty Font 
  739.          Name            =   "MS Sans Serif"
  740.          Size            =   13.5
  741.          Charset         =   0
  742.          Weight          =   400
  743.          Underline       =   0   'False
  744.          Italic          =   0   'False
  745.          Strikethrough   =   0   'False
  746.       EndProperty
  747.       ForeColor       =   &H00C0C0FF&
  748.       Height          =   375
  749.       Left            =   120
  750.       TabIndex        =   17
  751.       Top             =   3600
  752.       Width           =   3045
  753.    End
  754.    Begin VB.Line Line1 
  755.       BorderColor     =   &H0000FFFF&
  756.       BorderWidth     =   5
  757.       Index           =   11
  758.       X1              =   1095
  759.       X2              =   1095
  760.       Y1              =   6900
  761.       Y2              =   7731
  762.    End
  763.    Begin VB.Line Line1 
  764.       BorderColor     =   &H0000FFFF&
  765.       BorderWidth     =   5
  766.       Index           =   10
  767.       X1              =   855
  768.       X2              =   855
  769.       Y1              =   6300
  770.       Y2              =   7131
  771.    End
  772.    Begin VB.Line Line1 
  773.       BorderColor     =   &H0000FFFF&
  774.       BorderWidth     =   5
  775.       Index           =   9
  776.       X1              =   1710
  777.       X2              =   1710
  778.       Y1              =   6300
  779.       Y2              =   7131
  780.    End
  781.    Begin VB.Line Line1 
  782.       BorderColor     =   &H0000FFFF&
  783.       BorderWidth     =   5
  784.       Index           =   8
  785.       X1              =   855
  786.       X2              =   1704
  787.       Y1              =   7140
  788.       Y2              =   7140
  789.    End
  790.    Begin VB.Line Line1 
  791.       BorderColor     =   &H0000FFFF&
  792.       BorderWidth     =   5
  793.       Index           =   7
  794.       X1              =   855
  795.       X2              =   1704
  796.       Y1              =   6300
  797.       Y2              =   6300
  798.    End
  799.    Begin VB.Line Line1 
  800.       BorderColor     =   &H0000FFFF&
  801.       BorderWidth     =   5
  802.       Index           =   6
  803.       X1              =   255
  804.       X2              =   255
  805.       Y1              =   6900
  806.       Y2              =   7725
  807.    End
  808.    Begin VB.Line Line1 
  809.       BorderColor     =   &H0000FFFF&
  810.       BorderWidth     =   5
  811.       Index           =   5
  812.       X1              =   255
  813.       X2              =   1104
  814.       Y1              =   7725
  815.       Y2              =   7725
  816.    End
  817.    Begin VB.Line Line1 
  818.       BorderColor     =   &H0000FFFF&
  819.       BorderWidth     =   5
  820.       Index           =   4
  821.       X1              =   255
  822.       X2              =   1104
  823.       Y1              =   6900
  824.       Y2              =   6900
  825.    End
  826.    Begin VB.Line Line1 
  827.       BorderColor     =   &H0000FFFF&
  828.       BorderWidth     =   5
  829.       Index           =   3
  830.       X1              =   1095
  831.       X2              =   1701
  832.       Y1              =   7733
  833.       Y2              =   7140
  834.    End
  835.    Begin VB.Line Line1 
  836.       BorderColor     =   &H0000FFFF&
  837.       BorderWidth     =   5
  838.       Index           =   2
  839.       X1              =   255
  840.       X2              =   861
  841.       Y1              =   7733
  842.       Y2              =   7140
  843.    End
  844.    Begin VB.Line Line1 
  845.       BorderColor     =   &H0000FFFF&
  846.       BorderWidth     =   5
  847.       Index           =   1
  848.       X1              =   1095
  849.       X2              =   1701
  850.       Y1              =   6893
  851.       Y2              =   6300
  852.    End
  853.    Begin VB.Line Line1 
  854.       BorderColor     =   &H0000FFFF&
  855.       BorderWidth     =   5
  856.       Index           =   0
  857.       X1              =   255
  858.       X2              =   861
  859.       Y1              =   6893
  860.       Y2              =   6300
  861.    End
  862.    Begin VB.Shape Shape1 
  863.       BorderColor     =   &H0000FF00&
  864.       BorderWidth     =   3
  865.       Height          =   960
  866.       Left            =   4200
  867.       Top             =   6720
  868.       Width           =   1245
  869.    End
  870. Attribute VB_Name = "Form1"
  871. Attribute VB_GlobalNameSpace = False
  872. Attribute VB_Creatable = False
  873. Attribute VB_PredeclaredId = True
  874. Attribute VB_Exposed = False
  875. Option Explicit
  876. Dim Initialised As Boolean
  877. Private Sub chkBooleanProperties_Click(Index As Integer)
  878. With FastFormControl1
  879.     Select Case Index
  880.         Case 0
  881.             .CenterX = chkBooleanProperties(Index).Value
  882.         Case 1
  883.             .CenterY = chkBooleanProperties(Index).Value
  884.         Case 2
  885.             .GradientFill = chkBooleanProperties(Index).Value
  886.         Case 3
  887.             .ScaleControls = chkBooleanProperties(Index).Value
  888.         Case 4
  889.             .ScaleFonts = chkBooleanProperties(Index).Value
  890.         Case 5
  891.             .StayOnTop = chkBooleanProperties(Index).Value
  892.         Case 6
  893.             .SaveWindowState = chkBooleanProperties(Index).Value
  894.         Case 7
  895.             .ResizeOnMouseUp = chkBooleanProperties(Index).Value
  896.         Case 8
  897.             .ScaleGraphics = chkBooleanProperties(Index).Value
  898.         Case 9
  899.             .ScaleBorders = chkBooleanProperties(Index).Value
  900.     End Select
  901. End With
  902. End Sub
  903. Private Sub cmdAbout_Click()
  904.     FastFormControl1.ShowAboutBox
  905. End Sub
  906. Private Sub cmdGradientColour_Click()
  907.     CommonDialog1.ShowColor
  908.     FastFormControl1.GradientColour = CommonDialog1.Color
  909.     cmdGradientColour.BackColor = CommonDialog1.Color
  910. End Sub
  911. Private Sub cmdPicSize_Click()
  912. Static Shown As Boolean
  913. With cmdPicSize
  914.     .Caption = ""
  915.     If Not Shown Then
  916.         MsgBox "This shows one method of manually scaling a graphic"
  917.         Shown = True
  918.     End If
  919.     .Picture = FastFormControl1.SizePicture(Image1.Picture, .Width - 200, .Height - 200)
  920. End With
  921. End Sub
  922. Private Sub cmdReset_Click()
  923.     FastFormControl1.Reset
  924. End Sub
  925. Private Sub cmdScale_Click(Index As Integer)
  926.     FastFormControl1.ScaleX = lblScaleX
  927.     FastFormControl1.ScaleY = lblScaleY
  928. End Sub
  929. Private Sub Form_Load()
  930. Dim n As Integer
  931. With FastFormControl1
  932.     For n = 0 To 10
  933.         Select Case n
  934.             Case 0
  935.                 If .CenterX Then chkBooleanProperties(n).Value = 1
  936.             Case 1
  937.                 If .CenterY Then chkBooleanProperties(n).Value = 1
  938.             Case 2
  939.                 If .GradientFill Then chkBooleanProperties(n).Value = 1
  940.             Case 3
  941.                 If .ScaleControls Then chkBooleanProperties(n).Value = 1
  942.             Case 4
  943.                 If .ScaleFonts Then chkBooleanProperties(n).Value = 1
  944.             Case 5
  945.                 If .StayOnTop Then chkBooleanProperties(n).Value = 1
  946.             Case 6
  947.                 If .SaveWindowState Then chkBooleanProperties(n).Value = 1
  948.             Case 7
  949.                 If .ResizeOnMouseUp Then chkBooleanProperties(n).Value = 1
  950.             Case 8
  951.                 If .ScaleGraphics Then chkBooleanProperties(n).Value = 1
  952.             Case 9
  953.                 If .ScaleBorders Then chkBooleanProperties(n).Value = 1
  954.         End Select
  955.     Next n
  956.     cmdGradientColour.BackColor = FastFormControl1.GradientColour
  957.     CommonDialog1.Color = FastFormControl1.GradientColour
  958.     lblScaleX = .ScaleX
  959.     lblScaleY = .ScaleY
  960.     hsbScaleX = lblScaleX
  961.     hsbScaleY = lblScaleY
  962.     txtMinWidth = .MinWidth
  963.     txtMinHeight = .MinHeight
  964.     Initialised = True
  965.     cmdPicSize.Picture = Image1.Picture
  966. End With
  967. lblInfo = _
  968. "This example does not use any code at all to manipulate the forms " & _
  969. "behaviour. All the code is only to give you an interface to try out " & _
  970. "some of the features of the FastForm control." & vbCr & _
  971. "Use the controls on this form and the resize handles of the form to " & _
  972. "experiment with the FastForm Control. Then relate what this example is " & _
  973. "doing in relationship to the properties and methods of the FastForm control. " & vbCr & _
  974. "The FastForm control has full context sensitive help, so use that to assist you."
  975. End Sub
  976. Private Sub hsbScaleX_Change()
  977.     lblScaleX = hsbScaleX
  978. End Sub
  979. Private Sub hsbScaleX_Scroll()
  980.     hsbScaleX_Change
  981. End Sub
  982. Private Sub hsbScaleY_Change()
  983.     lblScaleY = hsbScaleY
  984. End Sub
  985. Private Sub hsbScaleY_Scroll()
  986.     hsbScaleY_Change
  987. End Sub
  988. Private Sub txtMinHeight_Change()
  989. On Error Resume Next
  990.     FastFormControl1.MinHeight = txtMinHeight
  991. On Error GoTo 0
  992. End Sub
  993. Private Sub txtMinWidth_Change()
  994. On Error Resume Next
  995.     FastFormControl1.MinWidth = txtMinWidth
  996. On Error GoTo 0
  997. End Sub
  998.